/*
Emma McGinty	
Proposal title: Portrayals of Serious Mental Illness: Precursor to Violence or Treatable Health Condition?


HYPOTHESES

Stated-Hyp1: "How does portrayal of SMI as a treatable health condition influence social stigma, willingness to pay, and support for mental health treatment options?"

	Test-Hyp1: Social stigma will vary when SMI is portrayed as a treatable vs. non-treatable health conidition.

	Test-Hyp2: Willingness to pay will vary when SMI is portrayed as a treatable vs. non-treatable health conidition.	

	Test-Hyp3: Support for mental health treatment will vary when SMI is portrayed as a treatable vs. non-treatable health conidition.	- community health services	

	Test-Hyp4: Support for mental health treatment will vary when SMI is portrayed as a treatable vs. non-treatable health conidition.	- involuntary commitment	
	
	Test-Hyp5: Support for mental health treatment will vary when SMI is portrayed as a treatable vs. non-treatable health conidition.	- long-term care		
	
Stated-Hyp2: "How does portrayal of SMI as a precursor to violence influence these outcomes?" 

	Test-Hyp6: Social stigma will vary when SMI is portrayed as a precursor to violence vs. not.

	Test-Hyp7: Willingness to pay will vary when SMI is portrayed as a precursor to violence vs. not.

	Test-Hyp8: Support for mental health treatment will vary when SMI is portrayed as a precursor to violence vs. not.- community health services	
	
	Test-Hyp9: Support for mental health treatment will vary when SMI is portrayed as a precursor to violence vs. not.- involuntary commitment	
	
	Test-Hyp10: Support for mental health treatment will vary when SMI is portrayed as a precursor to violence vs. not.	- long-term care	

Stated-Hyp3: "How is social stigma associated with willingness to pay and support for expanding various mental health treatment options?"

	Test-Hyp11: Willingness to pay will vary with social stigma.
	
	Test-Hyp12: Support for expanding mental health treatments will vary with social stigma. - community health services

	Test-Hyp13: Support for expanding mental health treatments will vary with social stigma. - involuntary commitment	
	
	Test-Hyp14: Support for expanding mental health treatments will vary with social stigma. - long-term care
	
Stated-Hyp4: "Do the effects of portraying SMI as a treatable condition on outcomes differ depending on whether an individual is portrayed as successfully engaging in treatment or not (e.g., making the choice to discontinue treatment)?" (p. 4)

	Test-Hyp15: Social stigma will vary when SMI is portrayed as successful vs. unsuccessful because of individual disengagement.

	Test-Hyp16: Willingness to pay will vary when SMI is portrayed as successful vs. unsuccessful because of individual disengagement.

	Test-Hyp17: Support for mental health treatment will vary when SMI is portrayed as successful vs. unsuccessful because of individual disengagement. - community

	Test-Hyp18: Support for mental health treatment will vary when SMI is portrayed as successful vs. unsuccessful because of individual disengagement.	- involuntary commitment	
	
	Test-Hyp19: Support for mental health treatment will vary when SMI is portrayed as successful vs. unsuccessful because of individual disengagement.	- long-term care		
	
Stated-Hyp4: "Do the effects of portraying SMI as a precursor to violence differ based on whether the interpersonal violence portrayed is directed at strangers (such as a mass shooting event) or family members?" (p. 4)	
	
	Test-Hyp20: Social stigma will vary when SMI is portrayed as precursor to violence towards strangers vs. family members.

	Test-Hyp21: Willingness to pay will vary when SMI is portrayed as precursor to violence towards strangers vs. family members.

	Test-Hyp22: Support for mental health treatment will vary when SMI is portrayed as precursor to violence towards strangers vs. family members. - community

	Test-Hyp23: Support for mental health treatment will vary when SMI is portrayed as precursor to violence towards strangers vs. family members.	- involuntary commitment	
	
	Test-Hyp24: Support for mental health treatment will vary when SMI is portrayed as precursor to violence towards strangers vs. family members.	- long-term care		
	
	
********************************************************************************
NOTES
- there are 3 wtp measures, but a2 and a3 are only asked if the answer to the 
first one is yes. We are only using the first one. 	

- for the treatment options outcome, page 6 mentions 3 types of treatment 
options. 
	
*/

clear all
use "McGinty730.dta", clear

********************************************************************************

* INDICATORS OF EXPERIMENTAL MANIPULATIONS

/*
IF XTESS206 = 1, show Narrative #1 Successful Treatment Engagement & Recovery
IF XTESS206 = 2, show Narrative #2 Unsuccessful Treatment Engagement (Individual Choice)
IF XTESS206 = 3, show Narrative #3 Unsuccessful Treatment Engagement (Policy Failure)
IF XTESS206 = 4, show Narrative #4 Unsuccessful Treatment Engagement (Individual Choice) + Stranger Violence
IF XTESS206 = 5, show Narrative #5 Unsuccessful Treatment Engagement (Policy Failure) + Stranger Violence
IF XTESS206 = 6, show Narrative #6 Unsuccessful Treatment Engagement (Individual Choice) + Family Violence
IF XTESS206 = 7, show Narrative #7 Unsuccessful treatment Engagement (Policy Failure) + Family Violence
IF XTESS206 = 8, show INTRO screen (no narrative will be shown)
*/

* treatable vs. not
	recode xtess206 (1=1 "successful treatment") (2/3=0 "unsuccessful treatment") (*=.), gen(treat_successful)
	tab treat_successful

* violent vs. not
	recode xtess206 (2/3=0 "no violence") (4/7=1 "violence") (*=.), gen(treat_violence)
	tab treat_violence
	
* individual engaged vs. individual discontinued
	recode xtess206 (1=1 "successful") (2=0 "individual failure") (*=.), gen(treat_success_individual)
	tab treat_success_individual
	
* violence towards family vs. strangers
	recode xtess206 (4/5=0 "violence towards strangers") (6/7=1 "violence towards family") (*=.), gen(treat_violence_family)
	
* OUTCOME MEASURES

* williness to pay
	tab a1
	recode a1 (-1=.) (1=1) (2=0), gen(wtp)
	tab wtp
 
* stigma

	/*
	How willing would you be to have a person with serious mental illness marry into your family?
	How willing would you be to have a person with serious mental illness start working closely with you on a job?
	People with serious mental illness are, by far, more dangerous than the general public. - REVERSE
	*/

	forval i=1/3 {
		replace b`i'=. if b`i'==-1
	tab b1
	}

	* recode b3 to reverse
	gen b3R = 6-b3

	* create scale
	gen stigma =b1 +b2+ b3R
	tab stigma
	
* support for treatment 

	/*
	Please tell us how much you favor or oppose each item below. (5= strongly oppose)
	
1.	Expanding outpatient public mental health treatment options in the community
2.	Expanding public programs to find housing and subsidize housing costs for people with serious mental illness
3.	Expanding public programs to help people with serious mental illness find jobs and provide on-the-job support as needed
4.	Expanding community crisis-response programs to help people with serious mental illness manage crises and connect to services
5.	Reducing legal restrictions on involuntary treatment to make it easier to treat someone with serious mental illness without their permission because they are considered a dangerous threat to themselves or others
6.	Reducing legal restrictions on involuntary treatment to make it easier to treat someone with serious mental illness without their permission because they are considered incompetent to make treatment decisions
7.	Creating more long-term psychiatric hospitals where people with serious mental illness can stay for long periods of a month or more

- all questions are reversed
- see p. 6
	*/

	forval i=1/7 { 
		replace c1_`i'=. if c1_`i'==-1
		tab c1_`i', mis
		gen c1_`i'R = 6-c1_`i'
	}

* community-based service
	gen support_community = c1_1R + c1_2R + c1_3R + c1_4R 
	tab support_community
	
* long-term inpatient

/*
7.	Creating more long-term psychiatric hospitals where people with serious mental illness can stay for long periods of a month or more
*/
	gen support_longterm= c1_7R
	
* involuntary commitment	
	
	/*
	5.	Reducing legal restrictions on involuntary treatment to make it easier to treat someone with serious mental illness without their permission because they are considered a dangerous threat to themselves or others
	6.	Reducing legal restrictions on involuntary treatment to make it easier to treat someone with serious mental illness without their permission because they are considered incompetent to make treatment decisions
	*/
	
	gen support_involuntary = c1_5R + c1_6R 
	tab support_involuntary
	
********************************************************************************
* ANALYSIS
	
*Test-Hyp1: Social stigma will vary when SMI is portrayed as a treatable vs. non-treatable health conidition.
	reg stigma i.treat_successful 
	// do not reject. 0.001
	tess 1.treat_successful, init(McGinty730) bonf(5)
	
*Test-Hyp2: Willingness to pay will vary when SMI is portrayed as a treatable vs. non-treatable health conidition.	
	reg wtp i.treat_successful 
	// reject. 0.128
	tess 1.treat_successful, bonf(5)
	
*	Test-Hyp3: Support for mental health treatment will vary when SMI is portrayed as a treatable vs. non-treatable health conidition.	- community health services	
	reg support_community i.treat_successful 
	// reject. 0.826
	tess 1.treat_successful, bonf(5)
	
*Test-Hyp4: Support for mental health treatment will vary when SMI is portrayed as a treatable vs. non-treatable health conidition.	- involuntary commitment	
	reg support_involuntary i.treat_successful 
	// reject. 0.407
	tess 1.treat_successful, bonf(5)
	
*Test-Hyp5: Support for mental health treatment will vary when SMI is portrayed as a treatable vs. non-treatable health conidition.	- long-term care		
	reg support_longterm i.treat_successful 
	// reject. 0.348
	tess 1.treat_successful, bonf(5)
	
*Test-Hyp6: Social stigma will vary when SMI is portrayed as a precursor to violence vs. not.
	reg stigma i.treat_violence
	// do not reject. 0.000
	tess 1.treat_violence, bonf(5)
	
*Test-Hyp7: Willingness to pay will vary when SMI is portrayed as a precursor to violence vs. not.
	reg wtp i.treat_violence
	// reject. 0.111
	tess 1.treat_violence, bonf(5)
	
*Test-Hyp8: Support for mental health treatment will vary when SMI is portrayed as a precursor to violence vs. not.- community health services	
	reg support_community i.treat_violence
	// reject. 0.773
	tess 1.treat_violence, bonf(5)
	
*Test-Hyp9: Support for mental health treatment will vary when SMI is portrayed as a precursor to violence vs. not.- involuntary commitment	
	reg support_involuntary i.treat_violence
	// reject. 0.065
	tess 1.treat_violence, bonf(5)
	
*Test-Hyp10: Support for mental health treatment will vary when SMI is portrayed as a precursor to violence vs. not.	- long-term care	
	reg support_longterm i.treat_violence
	// reject. 0.040 (bonferroni correction needed)
	tess 1.treat_violence, bonf(5)
	

*Test-Hyp11: Willingness to pay will vary with social stigma.
	reg wtp stigma
	// do not reject. 0.000
	tess stigma, bonf(4)
	
*Test-Hyp12: Support for expanding mental health treatments will vary with social stigma. - community health services
	reg support_community stigma
	// do not reject. 0.000
	tess stigma, bonf(4)
	
*Test-Hyp13: Support for expanding mental health treatments will vary with social stigma. - involuntary commitment	
	reg support_involuntary stigma
	// do not reject. 0.000
	tess stigma, bonf(4)
	
*Test-Hyp14: Support for expanding mental health treatments will vary with social stigma. - long-term care
	reg support_longterm stigma
	// reject. 0.263
	tess stigma, bonf(4)
	
*Test-Hyp15: Social stigma will vary when SMI is portrayed as successful vs. unsuccessful because of individual disengagement.
	reg stigma i.treat_success_individual
	// do not reject. 0.005
	tess 1.treat_success_individual, bonf(5)
		
*Test-Hyp16: Willingness to pay will vary when SMI is portrayed as successful vs. unsuccessful because of individual disengagement.
	reg wtp i.treat_success_individual
	// reject. 0.162
	tess 1.treat_success_individual, bonf(5)
	
*Test-Hyp17: Support for mental health treatment will vary when SMI is portrayed as successful vs. unsuccessful because of individual disengagement. - community-based
	reg support_community i.treat_success_individual
	// reject. 0.856
	tess 1.treat_success_individual, bonf(5)
	
*Test-Hyp18: Support for mental health treatment will vary when SMI is portrayed as successful vs. unsuccessful because of individual disengagement.	- involuntary commitment	
	reg support_involuntary i.treat_success_individual
	// reject. 0.767
	tess 1.treat_success_individual, bonf(5)
	
*Test-Hyp19: Support for mental health treatment will vary when SMI is portrayed as successful vs. unsuccessful because of individual disengagement.	- long-term care		
	reg support_longterm i.treat_success_individual
	// reject. 0.381
	tess 1.treat_success_individual, bonf(5)
	
*Test-Hyp20: Social stigma will vary when SMI is portrayed as precursor to violence towards strangers vs. family members.
	reg stigma i.treat_violence_family
	// reject. 0.260
	tess 1.treat_violence_family, bonf(5)
	
*Test-Hyp21: Willingness to pay will vary when SMI is portrayed as precursor to violence towards strangers vs. family members.
	reg wtp i.treat_violence_family
	// reject. 0.994
	tess 1.treat_violence_family, bonf(5)
	
*Test-Hyp22: Support for mental health treatment will vary when SMI is portrayed as precursor to violence towards strangers vs. family members. - community
	reg support_community i.treat_violence_family
	// reject. 0.741
	tess 1.treat_violence_family, bonf(5)
	
*Test-Hyp23: Support for mental health treatment will vary when SMI is portrayed as precursor to violence towards strangers vs. family members.	- involuntary commitment	
	reg support_involuntary i.treat_violence_family
	// reject. 0.115
	tess 1.treat_violence_family, bonf(5)
	
*Test-Hyp24: Support for mental health treatment will vary when SMI is portrayed as precursor to violence towards strangers vs. family members.	- long-term care		
	reg support_longterm i.treat_violence_family
	// reject. 0.421	
	tess 1.treat_violence_family, bonf(5)		
